home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / Modes / htmlMenu.tcl < prev    next >
Text File  |  1996-08-15  |  51KB  |  1,342 lines
  1. #=============================================================================
  2. #    
  3. #    htmlMenu.tcl  (called from html.tcl)
  4. #
  5. #    Part of HTML mode 1.2
  6. #
  7. #    HTML elements definitions and HTML menu.
  8. #
  9. #    Author: Johan Linde <jl@theophys.kth.se>
  10. #
  11. #    If you make improvements to this file, please share them!
  12. #
  13. #=============================================================================
  14. #
  15.  
  16. # Loading of package.
  17. proc htmlLoadPackage {level} {
  18.     global htmlPackageToUse
  19.     global HTMLmodeVars modifiedModeVars
  20.  
  21.     if {$level != $htmlPackageToUse} {    
  22.         set HTMLmodeVars(htmlPackageToUse) $level
  23.         lappend modifiedModeVars {htmlPackageToUse HTMLmodeVars}
  24.         message "Rebuilding HTML menuﾉ"
  25.         htmlBuildMenu
  26.         htmlUnbindKeys
  27.         message "Done."
  28.     }
  29. }
  30.  
  31. # This proc is not used any more. It now gives a warning message if the user
  32. # call it to define new elements in HTMLprefs.tcl.
  33. proc htmlNewElemVar {{list ""} {var ""} {val ""}} {
  34.     global htmlShownWarning
  35.     if {![info exists htmlShownWarning]} {
  36.         dialog -w 350 -h 290 -t "The way to add custom elements to HTML mode has changed."¥
  37.         10 10 340 45 ¥
  38.         -t "New elements can now be added with the functions found in the submenu HTML Utilities¥
  39.         -> Extend in the HTML menu. However, this submenu is disabled until you remove all¥
  40.         your definitions of custom elements from HTMLPrefs.tcl and restart Alpha."¥
  41.         10 55 340 150¥
  42.         -t "Select 'Help' from the HTML menu and then select 'Extending HTML mode' from the¥
  43.         marks menu in the help file to read more about how to avoid this message and how¥
  44.         to add new elements to HTML mode." 10 160 340 250¥
  45.         -b OK 20 260 85 280
  46.         set htmlShownWarning 1
  47.         enableMenuItem "HTML Utilities" Extend off
  48.     }
  49. }
  50.  
  51. proc htmlSetAttrUsed {num elem used} {
  52.     global htmlElemAttrUsed htmlElemAttrUsed3
  53.     if {![info exists htmlElemAttrUsed${num}($elem)]} {set htmlElemAttrUsed${num}($elem) $used}
  54. }
  55.  
  56. #
  57. # htmlElemAttrRequired: the per-element lists of all required attributes
  58. # htmlElemAttrOptional: the per-element lists of all optional attributes
  59. # htmlElemAttrChoices: element-specific attribute completions
  60. # htmlElemAttrNumber: the per-element list of attributes which are numbers.
  61. # htmlElemEventHandler: the per-element list of JavaScript's event handlers.
  62. # htmlElemAttrUsed: the per-element list of elements asked for in the status bar.
  63. #
  64. # htmlElemAttrOptional has to be defined for every element for everything
  65. # to work.
  66.  
  67. #=============================================================================
  68. #
  69. #     Extensions
  70. #
  71. #=============================================================================
  72.  
  73. proc htmlExtensions {} {
  74.     global htmlElemAttrRequired1 htmlElemAttrOptional1 htmlPlugins
  75.     global htmlElemEventHandler1 htmlElemAttrChoices1 htmlElemAttrNumber1
  76.     
  77.     set htmlElemAttrOptional1(HTML) {}
  78.     set htmlElemAttrOptional1(HEAD) {}
  79.     set htmlElemAttrOptional1(TITLE) {}
  80.     set htmlElemAttrOptional1(BODY)    {BACKGROUND= BGCOLOR= TEXT= LINK= VLINK= ALINK=}
  81.     set htmlElemEventHandler1(BODY)    {onLoad= onUnload=}
  82.     htmlSetAttrUsed ""     BODY {BACKGROUND= BGCOLOR= TEXT= LINK= VLINK=}
  83.     
  84.     set htmlElemAttrOptional1(H1)    {ALIGN= }
  85.     set htmlElemAttrChoices1(H1)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  86.     htmlSetAttrUsed ""     H1    {ALIGN=}
  87.     set htmlElemAttrOptional1(H2)    {ALIGN= }
  88.     set htmlElemAttrChoices1(H2)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  89.     htmlSetAttrUsed ""     H2    {ALIGN=}
  90.     set htmlElemAttrOptional1(H3)    {ALIGN= }
  91.     set htmlElemAttrChoices1(H3)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  92.     htmlSetAttrUsed ""     H3    {ALIGN=}
  93.     set htmlElemAttrOptional1(H4)    {ALIGN= }
  94.     set htmlElemAttrChoices1(H4)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  95.     htmlSetAttrUsed ""     H4    {ALIGN=}
  96.     set htmlElemAttrOptional1(H5)    {ALIGN= }
  97.     set htmlElemAttrChoices1(H5)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  98.     htmlSetAttrUsed ""     H5    {ALIGN=}
  99.     set htmlElemAttrOptional1(H6)    {ALIGN= }
  100.     set htmlElemAttrChoices1(H6)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  101.     htmlSetAttrUsed ""     H6    {ALIGN=}
  102.     
  103.     set htmlElemAttrOptional1(P)    {ALIGN= }
  104.     set htmlElemAttrChoices1(P)        {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  105.     htmlSetAttrUsed ""     P    {ALIGN=}
  106.     set htmlElemAttrOptional1(BLOCKQUOTE) {}
  107.     set htmlElemAttrOptional1(DIV)    {ALIGN= }
  108.     set htmlElemAttrChoices1(DIV)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  109.     htmlSetAttrUsed ""        DIV    {ALIGN=}
  110.     set htmlElemAttrOptional1(ADDRESS) {}
  111.     set htmlElemAttrOptional1(CENTER) {}
  112.     set htmlElemAttrOptional1(PRE)    {WIDTH= }
  113.     set htmlElemAttrNumber1(PRE)     {WIDTH=1:i:n}
  114.     set htmlElemAttrRequired1(MULTICOL)    {COLS=}
  115.     set htmlElemAttrOptional1(MULTICOL)    {GUTTER= WIDTH=}
  116.     set htmlElemAttrNumber1(MULTICOL)    {COLS=2:i:n GUTTER=0:i:n WIDTH=1:i:%}
  117.     htmlSetAttrUsed "" MULTICOL {COLS= GUTTER= WIDTH=}
  118.     set htmlElemAttrRequired1(SPACER)    {TYPE=}
  119.     set htmlElemAttrOptional1(SPACER)    {SIZE= WIDTH= HEIGHT= ALIGN=}
  120.     set htmlElemAttrNumber1(SPACER)    {SIZE=1:i:n WIDTH=1:i:% HEIGHT=1:i:%}
  121.     set htmlElemAttrChoices1(SPACER) {TYPE=HORIZONTAL TYPE=VERTICAL TYPE=BLOCK ALIGN=TOP 
  122.     ALIGN=MIDDLE ALIGN=BOTTOM ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE}
  123.     htmlSetAttrUsed "" SPACER {TYPE= SIZE= WIDTH= HEIGHT= ALIGN=}
  124.     set htmlElemAttrOptional1(BR)    {CLEAR= }
  125.     set htmlElemAttrChoices1(BR)    {CLEAR=ALL CLEAR=LEFT CLEAR=RIGHT CLEAR=NONE}
  126.     set htmlElemAttrOptional1(HR)    {ALIGN= SIZE= WIDTH= NOSHADE}
  127.     set htmlElemAttrChoices1(HR)    {ALIGN=LEFT ALIGN=RIGHT ALIGN=CENTER}
  128.     set htmlElemAttrNumber1(HR)     {SIZE=1:i:n WIDTH=1:i:%}
  129.     set htmlElemAttrOptional1(NOBR) {}
  130.     set htmlElemAttrOptional1(WBR)     {}
  131.     
  132.     set htmlElemAttrOptional1(FONT)    {SIZE= COLOR= FACE=}
  133.     set htmlElemAttrNumber1(FONT)    {SIZE=1:7:n}
  134.     htmlSetAttrUsed ""        FONT    {SIZE=}
  135.     set htmlElemAttrRequired1(BASEFONT)    {SIZE=}
  136.     set htmlElemAttrOptional1(BASEFONT) {}
  137.     set htmlElemAttrNumber1(BASEFONT)    {SIZE=1:7:n}
  138.     set htmlElemAttrOptional1(B) {}
  139.     set htmlElemAttrOptional1(I) {}
  140.     set htmlElemAttrOptional1(STRIKE) {}
  141.     set htmlElemAttrOptional1(U) {}
  142.     set htmlElemAttrOptional1(SUB) {}
  143.     set htmlElemAttrOptional1(SUP) {}
  144.     set htmlElemAttrOptional1(BIG) {}
  145.     set htmlElemAttrOptional1(SMALL) {}
  146.     set htmlElemAttrOptional1(EM) {}
  147.     set htmlElemAttrOptional1(STRONG) {}
  148.     set htmlElemAttrOptional1(DFN) {}
  149.     set htmlElemAttrOptional1(CODE) {}
  150.     set htmlElemAttrOptional1(VAR) {}
  151.     set htmlElemAttrOptional1(CITE) {}
  152.     set htmlElemAttrOptional1(KBD) {}
  153.     set htmlElemAttrOptional1(TT) {}
  154.     set htmlElemAttrOptional1(SAMP) {}
  155.     set htmlElemAttrOptional1(BLINK) {}
  156.     
  157.     set htmlElemAttrOptional1(A)    {HREF= NAME= TARGET= REL= REV=  TITLE= }
  158.     set htmlElemEventHandler1(A)    {onClick= onMouseOver= onMouseOut=}
  159.     htmlSetAttrUsed ""        A    {HREF= NAME=}
  160.     set htmlElemAttrRequired1(IMG)    {SRC=}
  161.     set htmlElemAttrOptional1(IMG)    {LOWSRC= WIDTH= HEIGHT=  BORDER= 
  162.     ALIGN= ALT= HSPACE= VSPACE= USEMAP= ISMAP}
  163.     set htmlElemAttrChoices1(IMG)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  164.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE}
  165.     set htmlElemAttrNumber1(IMG) {BORDER=0:i:n WIDTH=1:i:% HEIGHT=1:i:%
  166.     HSPACE=0:i:n VSPACE=0:i:n}
  167.     set htmlElemEventHandler1(IMG)    {onAbort= onError= onLoad=}
  168.     htmlSetAttrUsed ""        IMG    {SRC= WIDTH= HEIGHT= ALIGN= ALT=}
  169.     
  170.     set htmlElemAttrRequired1(EMBED)    {SRC= WIDTH= HEIGHT=}
  171.     set htmlElemAttrOptional1(EMBED)    {HSPACE= VSPACE= ALIGN=}
  172.     set htmlElemAttrNumber1(EMBED) {WIDTH=1:i:n HEIGHT=1:i:n HSPACE=1:i:n VSPACE=1:i:n}
  173.     set htmlElemAttrChoices1(EMBED)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  174.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE}
  175.     set htmlElemAttrOptional1(NOEMBED) {}
  176.     set htmlElemAttrRequired1(LIVEAUDIO) {SRC= WIDTH= HEIGHT=}
  177.     set htmlElemAttrOptional1(LIVEAUDIO)    {HSPACE= VSPACE= ALIGN= AUTOSTART= LOOP=}
  178.     set htmlElemAttrNumber1(LIVEAUDIO) {WIDTH=1:i:n HEIGHT=1:i:n HSPACE=1:i:n VSPACE=1:i:n}
  179.     set htmlElemAttrChoices1(LIVEAUDIO)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  180.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE 
  181.     AUTOSTART=TRUE AUTOSTART=FALSE LOOP=TRUE LOOP=FALSE}
  182.     htmlSetAttrUsed "" LIVEAUDIO {SRC= WIDTH= HEIGHT= AUTOSTART= LOOP=}
  183.     set htmlElemAttrRequired1(LIVEVIDEO) {SRC= WIDTH= HEIGHT=}
  184.     set htmlElemAttrOptional1(LIVEVIDEO)    {HSPACE= VSPACE= ALIGN= AUTOSTART= LOOP= CONTROLS=}
  185.     set htmlElemAttrNumber1(LIVEVIDEO) {WIDTH=1:i:n HEIGHT=1:i:n HSPACE=1:i:n VSPACE=1:i:n}
  186.     set htmlElemAttrChoices1(LIVEVIDEO)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  187.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE 
  188.     AUTOSTART=TRUE AUTOSTART=FALSE LOOP=TRUE LOOP=FALSE CONTROLS=TRUE CONTROLS=FALSE}
  189.     htmlSetAttrUsed "" LIVEVIDEO {SRC= WIDTH= HEIGHT= AUTOSTART= LOOP= CONTROLS=}
  190.     set htmlElemAttrRequired1([list QUICKTIME MOVIE])    {SRC= }
  191.     set htmlElemAttrOptional1([list QUICKTIME MOVIE])    {WIDTH= HEIGHT= HSPACE= VSPACE= ALIGN=
  192.     HIDDEN= AUTOPLAY= CONTROLLER= LOOP= PLAYEVERYFRAME= HREF= TARGET= PLUGINSPAGE=}
  193.     set htmlElemAttrNumber1([list QUICKTIME MOVIE]) {WIDTH=1:i:n HEIGHT=1:i:n HSPACE=1:i:n VSPACE=1:i:n}
  194.     set htmlElemAttrChoices1([list QUICKTIME MOVIE])    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  195.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE HIDDEN=TRUE HIDDEN=FALSE
  196.     AUTOPLAY=TRUE AUTOPLAY=FALSE CONTROLLER=TRUE CONTROLLER=FALSE LOOP=TRUE LOOP=FALSE 
  197.     LOOP=PALINDROME PLAYEVERYFRAME=TRUE PLAYEVERYFRAME=FALSE}
  198.     htmlSetAttrUsed "" "QUICKTIME MOVIE" {SRC= WIDTH= HEIGHT= HIDDEN= AUTOPLAY= CONTROLLER= LOOP= 
  199.     PLAYEVERYFRAME=}
  200.     set htmlElemAttrRequired1([list QUICKTIME VR])    {SRC= WIDTH= HEIGHT=}
  201.     set htmlElemAttrOptional1([list QUICKTIME VR])    {HSPACE= VSPACE= ALIGN= PAN= TILT= FOV=
  202.     NODE= CORRECTION= PLUGINSPAGE=}
  203.     set htmlElemAttrNumber1([list QUICKTIME VR]) {WIDTH=1:i:n HEIGHT=1:i:n 
  204.     HSPACE=1:i:n VSPACE=1:i:n PAN=0:360:n TILT=-360:360:n FOV=-360:360:n NODE=0:i:n}
  205.     set htmlElemAttrChoices1([list QUICKTIME VR])    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  206.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE
  207.     CORRECTION=NONE CORRECTION=PARTIAL CORRECTION=FULL}
  208.     htmlSetAttrUsed "" "QUICKTIME VR" {SRC= WIDTH= HEIGHT= PAN= TILT= FOV=
  209.     NODE= CORRECTION=}
  210.     set htmlElemAttrRequired1(REALAUDIO)    {SRC= WIDTH= HEIGHT=}
  211.     set htmlElemAttrOptional1(REALAUDIO)    {HSPACE= VSPACE= ALIGN= CONTROLS= AUTOSTART=
  212.     NOLABELS= CONSOLE=}
  213.     set htmlElemAttrNumber1(REALAUDIO) {WIDTH=1:i:n HEIGHT=1:i:n HSPACE=1:i:n VSPACE=1:i:n}
  214.     set htmlElemAttrChoices1(REALAUDIO)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  215.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE ALIGN=BASELINE
  216.     CONTROLS=ALL CONTROLS=CONTROLPANEL CONTROLS=INFOVOLUMEPANEL CONTROLS=INFOPANEL
  217.     CONTROLS=STATUSBAR CONTROLS=PLAYBUTTON CONTROLS=STOPBUTTON CONTROLS=VOLUMESLIDER
  218.     CONTROLS=POSITIONSLIDER CONTROLS=POSITIONFIELD CONTROLS=STATUSFIELD
  219.     AUTOSTART=TRUE AUTOSTART=FALSE NOLABELS=TRUE NOLABELS=FALSE}
  220.     htmlSetAttrUsed "" REALAUDIO {SRC= WIDTH= HEIGHT= CONTROLS= AUTOSTART=
  221.     NOLABELS= CONSOLE=}
  222.         
  223.     set htmlElemAttrOptional1(UL)    {TYPE= COMPACT}
  224.     set htmlElemAttrChoices1(UL)    {TYPE=DISC TYPE=CIRCLE TYPE=SQUARE}
  225.     set htmlElemAttrOptional1([list LI IN UL])    {TYPE=}
  226.     set htmlElemAttrChoices1([list LI IN UL])    {TYPE=DISC TYPE=CIRCLE TYPE=SQUARE}
  227.     set htmlElemAttrOptional1(OL)    {TYPE= START= COMPACT}
  228.     set htmlElemAttrChoices1(OL)    {TYPE=A TYPE=a TYPE=I TYPE=i TYPE=1}
  229.     set htmlElemAttrNumber1(OL)    {START=1:i:n}
  230.     set htmlElemAttrOptional1([list LI IN OL])    {TYPE= VALUE=}
  231.     set htmlElemAttrNumber1([list LI IN OL])    {VALUE=1:i:n}
  232.     set htmlElemAttrChoices1([list LI IN OL])    {TYPE=A TYPE=a TYPE=I TYPE=i TYPE=1}
  233.     set htmlElemAttrOptional1(DIR) {COMPACT}
  234.     set htmlElemAttrOptional1(MENU) {COMPACT}
  235.     set htmlElemAttrOptional1(LI) {}
  236.     set htmlElemAttrOptional1(DL) {COMPACT}
  237.     set htmlElemAttrOptional1(DT) {}
  238.     set htmlElemAttrOptional1(DD)    {}
  239.     
  240.     set htmlElemAttrOptional1(FORM)    {ACTION= METHOD= ENCTYPE= TARGET= NAME=}
  241.     set htmlElemAttrChoices1(FORM)    {METHOD=POST METHOD=GET}
  242.     set htmlElemEventHandler1(FORM)    {onSubmit=}
  243.     htmlSetAttrUsed ""        FORM    {ACTION= METHOD= }
  244.     set htmlElemAttrRequired1(TEXT)    {NAME=}
  245.     set htmlElemAttrOptional1(TEXT)    {VALUE= SIZE= MAXLENGTH=}
  246.     set htmlElemAttrNumber1(TEXT)    {SIZE=1:i:n MAXLENGTH=1:i:n}
  247.     set htmlElemEventHandler1(TEXT)    {onBlur= onChange= onFocus= onSelect=}
  248.     htmlSetAttrUsed ""     TEXT    {NAME= VALUE= SIZE= MAXLENGTH=}
  249.     set htmlElemAttrRequired1(CHECKBOX)    {NAME= VALUE=}
  250.     set htmlElemAttrOptional1(CHECKBOX)    {CHECKED}
  251.     set htmlElemEventHandler1(CHECKBOX)    {onClick=}
  252.     htmlSetAttrUsed ""     CHECKBOX    {NAME= VALUE= CHECKED}
  253.     set htmlElemAttrRequired1(BUTTON)    {VALUE=}
  254.     set htmlElemAttrOptional1(BUTTON)    {NAME=}
  255.     set htmlElemEventHandler1(BUTTON)    {onClick=}
  256.     htmlSetAttrUsed ""     BUTTON    {VALUE= NAME=}
  257.     set htmlElemAttrRequired1(RADIO)    {NAME= VALUE=}
  258.     set htmlElemAttrOptional1(RADIO)    {CHECKED}
  259.     set htmlElemEventHandler1(RADIO)    {onClick=}
  260.     htmlSetAttrUsed ""     RADIO    {NAME= VALUE= CHECKED}
  261.     set htmlElemAttrOptional1(SUBMIT)    {NAME= VALUE=}
  262.     set htmlElemEventHandler1(SUBMIT)    {onClick=}
  263.     htmlSetAttrUsed ""     SUBMIT    {VALUE= }
  264.     set htmlElemAttrOptional1(RESET)    {VALUE= }
  265.     set htmlElemEventHandler1(RESET)    {onClick=}
  266.     htmlSetAttrUsed ""     RESET    {VALUE= }
  267.     set htmlElemAttrRequired1(PASSWORD)    {NAME= }
  268.     set htmlElemAttrOptional1(PASSWORD)    {VALUE= SIZE= MAXLENGTH=}
  269.     set htmlElemAttrNumber1(PASSWORD)    {SIZE=1:i:n MAXLENGTH=1:i:n}
  270.     htmlSetAttrUsed ""     PASSWORD    {NAME= VALUE= SIZE= MAXLENGTH=}
  271.     set htmlElemAttrRequired1(HIDDEN)    {NAME= VALUE=}
  272.     set htmlElemAttrOptional1(HIDDEN)    {}
  273.     set htmlElemAttrRequired1(IMAGE)    {NAME= SRC=}
  274.     set htmlElemAttrOptional1(IMAGE)    {ALIGN=}
  275.     set htmlElemAttrChoices1(IMAGE)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  276.     ALIGN=LEFT ALIGN=RIGHT}
  277.     set htmlElemAttrRequired1(FILE)    {NAME= }
  278.     set htmlElemAttrOptional1(FILE)    {}
  279.     set htmlElemAttrRequired1(SELECT)    {NAME= }
  280.     set htmlElemAttrOptional1(SELECT)    {SIZE= MULTIPLE}
  281.     set htmlElemAttrNumber1(SELECT)    {SIZE=1:i:n}
  282.     set htmlElemEventHandler1(SELECT)    {onBlur= onChange= onFocus=}
  283.     htmlSetAttrUsed ""        SELECT    {NAME= SIZE= MULTIPLE}
  284.     set htmlElemAttrOptional1(OPTION)    {VALUE= SELECTED}
  285.     htmlSetAttrUsed ""        OPTION    {SELECTED}
  286.     set htmlElemAttrRequired1(TEXTAREA)    {NAME= ROWS= COLS=}
  287.     set htmlElemAttrOptional1(TEXTAREA)    {WRAP=}
  288.     set htmlElemAttrNumber1(TEXTAREA)    {ROWS=1:i:n COLS=1:i:n}
  289.     set htmlElemAttrChoices1(TEXTAREA) {WRAP=VIRTUAL WRAP=PHYSICAL WRAP=OFF}
  290.     set htmlElemEventHandler1(TEXTAREA)    {onBlur= onChange= onFocus= onSelect=}
  291.     
  292.     set htmlElemAttrOptional1(TABLE)    {BORDER= CELLSPACING= CELLPADDING= WIDTH= 
  293.     ALIGN= BGCOLOR=}
  294.     set htmlElemAttrChoices1(TABLE)    {ALIGN=LEFT ALIGN=CENTER ALIGN=RIGHT}
  295.     set htmlElemAttrNumber1(TABLE)    {BORDER=0:i:n CELLSPACING=0:i:n 
  296.     CELLPADDING=0:i:n WIDTH=1:i:%}
  297.     htmlSetAttrUsed ""     TABLE    {BORDER= CELLSPACING= CELLPADDING=}
  298.     set htmlElemAttrOptional1(TD)    {ALIGN= VALIGN= COLSPAN= ROWSPAN= WIDTH= NOWRAP
  299.     BGCOLOR=}
  300.     set htmlElemAttrChoices1(TD)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT 
  301.     VALIGN=BASELINE VALIGN=BOTTOM VALIGN=MIDDLE VALIGN=TOP }
  302.     set htmlElemAttrNumber1(TD)    {COLSPAN=1:i:n ROWSPAN=1:i:n WIDTH=1:i:%}
  303.     htmlSetAttrUsed ""     TD    {ALIGN= VALIGN= COLSPAN= ROWSPAN= NOWRAP}
  304.     set htmlElemAttrOptional1(TH)    {ALIGN= VALIGN= COLSPAN= ROWSPAN= WIDTH= NOWRAP
  305.     BGCOLOR=}
  306.     set htmlElemAttrChoices1(TH)    {ALIGN=LEFT ALIGN=CENTER ALIGN=RIGHT 
  307.     VALIGN=BASELINE VALIGN=BOTTOM VALIGN=MIDDLE VALIGN=TOP }
  308.     set htmlElemAttrNumber1(TH)    {COLSPAN=1:i:n ROWSPAN=1:i:n WIDTH=1:i:%}
  309.     htmlSetAttrUsed ""     TH    {ALIGN= VALIGN= COLSPAN= ROWSPAN= NOWRAP }
  310.     set htmlElemAttrOptional1(TR)    {ALIGN= VALIGN= BGCOLOR=}
  311.     set htmlElemAttrChoices1(TR)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT  
  312.     VALIGN=BASELINE VALIGN=BOTTOM VALIGN=MIDDLE VALIGN=TOP }
  313.     htmlSetAttrUsed ""        TR    {ALIGN= VALIGN=}
  314.     set htmlElemAttrOptional1(CAPTION)    {ALIGN=}
  315.     set htmlElemAttrChoices1(CAPTION)    {ALIGN=BOTTOM ALIGN=TOP }
  316.     htmlSetAttrUsed ""     CAPTION    {ALIGN=}
  317.     
  318.     set htmlElemAttrOptional1(FRAMESET) {ROWS= COLS= FRAMEBORDER= BORDER= BORDERCOLOR=}
  319.     set htmlElemAttrNumber1(FRAMESET)    {BORDER=0:i:n}
  320.     set htmlElemAttrChoices1(FRAMESET)    {FRAMEBORDER=YES FRAMEBORDER=NO}
  321.     set htmlElemEventHandler1(FRAMESET)    {onLoad= onUnload=}
  322.     htmlSetAttrUsed ""        FRAMESET {ROWS= COLS=}
  323.     set htmlElemAttrRequired1(FRAME)    {SRC=}
  324.     set htmlElemAttrOptional1(FRAME)    {NAME= MARGINWIDTH= MARGINHEIGHT= SCROLLING=
  325.     NORESIZE FRAMEBORDER= BORDERCOLOR=}
  326.     set htmlElemAttrChoices1(FRAME)    {SCROLLING=YES SCROLLING=NO SCROLLING=AUTO 
  327.     FRAMEBORDER=YES FRAMEBORDER=NO}
  328.     set htmlElemAttrNumber1(FRAME)    {MARGINWIDTH=1:i:n MARGINHEIGHT=1:i:n}
  329.     htmlSetAttrUsed ""        FRAME    {SRC= NAME= }
  330.     set htmlElemAttrOptional1(NOFRAMES) {}
  331.     
  332.     set htmlElemAttrRequired1(MAP)        {NAME=}
  333.     set htmlElemAttrOptional1(MAP)        {}
  334.     set htmlElemAttrOptional1(AREA)    {SHAPE= COORDS= TARGET= HREF= NOHREF ALT=}
  335.     set htmlElemAttrChoices1(AREA)    {SHAPE=RECT SHAPE=CIRCLE SHAPE=POLY
  336.     SHAPE=DEFAULT}
  337.     set htmlElemEventHandler1(AREA)    {onClick= onMouseOver= onMouseOut=}
  338.     htmlSetAttrUsed ""        AREA    {SHAPE= COORDS= HREF= NOHREF}
  339.     
  340.     set htmlElemAttrRequired1(APPLET)    {CODE= WIDTH= HEIGHT=}
  341.     set htmlElemAttrOptional1(APPLET)     {CODEBASE= HSPACE= VSPACE= ALIGN= NAME= ALT=}
  342.     set htmlElemAttrChoices1(APPLET)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  343.     ALIGN=LEFT ALIGN=RIGHT ALIGN=TEXTTOP ALIGN=ABSMIDDLE
  344.     ALIGN=BASELINE}
  345.     set htmlElemAttrNumber1(APPLET)     {VSPACE=0:i:n HSPACE=0:i:n WIDTH=1:i:n
  346.     HEIGHT=1:i:n}
  347.     htmlSetAttrUsed ""        APPLET    {CODE= WIDTH= HEIGHT= CODEBASE= ALIGN= }
  348.     set htmlElemAttrRequired1(PARAM)    {NAME= VALUE=}
  349.     set htmlElemAttrOptional1(PARAM)    {}
  350.     set htmlElemAttrOptional1(SCRIPT)    {LANGUAGE= SRC=}
  351.     set htmlElemAttrChoices1(SCRIPT)    {LANGUAGE=JAVASCRIPT}
  352.     htmlSetAttrUsed ""        SCRIPT    {LANGUAGE=}
  353.     set htmlElemAttrOptional1(NOSCRIPT) {}
  354.     
  355.     set htmlElemAttrOptional1(BASE)    {HREF= TARGET=}
  356.     htmlSetAttrUsed ""        BASE    {HREF= }
  357.     set htmlElemAttrOptional1(ISINDEX)    {ACTION= PROMPT=}
  358.     set htmlElemAttrOptional1(LINK)    {HREF=  REL= REV= TITLE= ID=}
  359.     htmlSetAttrUsed ""        LINK    {HREF=}
  360.     set htmlElemAttrRequired1(META)    {HTTP-EQUIV= CONTENT=}
  361.     set htmlElemAttrOptional1(META)    {NAME= }
  362. }
  363.  
  364. #=============================================================================
  365. #
  366. #     HTML 3.2
  367. #
  368. #=============================================================================
  369.  
  370. proc html32 {} {
  371.     global htmlElemAttrRequired3 htmlElemAttrOptional3
  372.     global htmlElemAttrChoices3 htmlElemAttrNumber3
  373.     
  374.     set htmlElemAttrOptional3(HTML) {}
  375.     set htmlElemAttrOptional3(HEAD) {}
  376.     set htmlElemAttrOptional3(TITLE) {}
  377.     set htmlElemAttrOptional3(BODY)    {BACKGROUND= BGCOLOR= TEXT= LINK= VLINK= ALINK=}
  378.     htmlSetAttrUsed 3 BODY {BACKGROUND= BGCOLOR= TEXT= LINK= VLINK=}
  379.     
  380.     set htmlElemAttrOptional3(H1)    {ALIGN= }
  381.     set htmlElemAttrChoices3(H1)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  382.     htmlSetAttrUsed 3 H1    {ALIGN=}
  383.     set htmlElemAttrOptional3(H2)    {ALIGN= }
  384.     set htmlElemAttrChoices3(H2)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  385.     htmlSetAttrUsed 3 H2    {ALIGN=}
  386.     set htmlElemAttrOptional3(H3)    {ALIGN= }
  387.     set htmlElemAttrChoices3(H3)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  388.     htmlSetAttrUsed 3 H3    {ALIGN=}
  389.     set htmlElemAttrOptional3(H4)    {ALIGN= }
  390.     set htmlElemAttrChoices3(H4)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  391.     htmlSetAttrUsed 3 H4    {ALIGN=}
  392.     set htmlElemAttrOptional3(H5)    {ALIGN= }
  393.     set htmlElemAttrChoices3(H5)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  394.     htmlSetAttrUsed 3 H5    {ALIGN=}
  395.     set htmlElemAttrOptional3(H6)    {ALIGN= }
  396.     set htmlElemAttrChoices3(H6)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  397.     htmlSetAttrUsed 3 H6    {ALIGN=}
  398.     
  399.     set htmlElemAttrOptional3(P)    {ALIGN= }
  400.     set htmlElemAttrChoices3(P)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  401.     htmlSetAttrUsed 3 P    {ALIGN=}
  402.     set htmlElemAttrOptional3(BLOCKQUOTE) {}
  403.     set htmlElemAttrOptional3(DIV)    {ALIGN= }
  404.     set htmlElemAttrChoices3(DIV)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT}
  405.     htmlSetAttrUsed 3 DIV    {ALIGN=}
  406.     set htmlElemAttrOptional3(ADDRESS) {}
  407.     set htmlElemAttrOptional3(CENTER) {}
  408.     set htmlElemAttrOptional3(PRE)    {WIDTH= }
  409.     set htmlElemAttrNumber3(PRE)    {WIDTH=1:i:n}
  410.     set htmlElemAttrOptional3(BR)    {CLEAR= }
  411.     set htmlElemAttrChoices3(BR)    {CLEAR=ALL CLEAR=LEFT CLEAR=RIGHT CLEAR=NONE}
  412.     set htmlElemAttrOptional3(HR)    {ALIGN= SIZE= WIDTH= NOSHADE}
  413.     set htmlElemAttrChoices3(HR)    {ALIGN=LEFT ALIGN=RIGHT ALIGN=CENTER}
  414.     set htmlElemAttrNumber3(HR)     {SIZE=1:i:n WIDTH=1:i:%}
  415.     
  416.     set htmlElemAttrOptional3(FONT)    {SIZE= COLOR=}
  417.     set htmlElemAttrNumber3(FONT)    {SIZE=1:7:n}
  418.     htmlSetAttrUsed 3 FONT    {SIZE=}
  419.     set htmlElemAttrOptional3(B) {}
  420.     set htmlElemAttrOptional3(I) {}
  421.     set htmlElemAttrOptional3(STRIKE) {}
  422.     set htmlElemAttrOptional3(U) {}
  423.     set htmlElemAttrOptional3(SUB) {}
  424.     set htmlElemAttrOptional3(SUP) {}
  425.     set htmlElemAttrOptional3(BIG) {}
  426.     set htmlElemAttrOptional3(SMALL) {}
  427.     set htmlElemAttrOptional3(EM) {}
  428.     set htmlElemAttrOptional3(STRONG) {}
  429.     set htmlElemAttrOptional3(DFN)    {}
  430.     set htmlElemAttrOptional3(CODE) {}
  431.     set htmlElemAttrOptional3(VAR) {}
  432.     set htmlElemAttrOptional3(CITE) {}
  433.     set htmlElemAttrOptional3(KBD) {}
  434.     set htmlElemAttrOptional3(TT) {}
  435.     set htmlElemAttrOptional3(SAMP) {}
  436.     
  437.     set htmlElemAttrOptional3(A)    {HREF= NAME= REL= REV=  TITLE= }
  438.     htmlSetAttrUsed 3 A    {HREF= NAME=}
  439.     set htmlElemAttrRequired3(IMG)    {SRC=}
  440.     set htmlElemAttrOptional3(IMG)    {WIDTH= HEIGHT=  BORDER= 
  441.     ALIGN= ALT= HSPACE= VSPACE= USEMAP= ISMAP}
  442.     set htmlElemAttrChoices3(IMG)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  443.     ALIGN=LEFT ALIGN=RIGHT}
  444.     set htmlElemAttrNumber3(IMG) {BORDER=0:i:n WIDTH=1:i:n HEIGHT=1:i:n
  445.     HSPACE=0:i:n VSPACE=0:i:n}
  446.     htmlSetAttrUsed 3 IMG    {SRC= WIDTH= HEIGHT= ALIGN= ALT=}
  447.     
  448.     set htmlElemAttrOptional3(UL)    {TYPE= COMPACT}
  449.     set htmlElemAttrChoices3(UL)    {TYPE=DISC TYPE=CIRCLE TYPE=SQUARE}
  450.     set htmlElemAttrOptional3([list LI IN UL])    {TYPE=}
  451.     set htmlElemAttrChoices3([list LI IN UL])    {TYPE=DISC TYPE=CIRCLE TYPE=SQUARE}
  452.     set htmlElemAttrOptional3(OL)    {TYPE= START= COMPACT}
  453.     set htmlElemAttrChoices3(OL)    {TYPE=A TYPE=a TYPE=I TYPE=i TYPE=1}
  454.     set htmlElemAttrNumber3(OL)    {START=1:i:n}
  455.     set htmlElemAttrOptional3([list LI IN OL])    {TYPE= VALUE=}
  456.     set htmlElemAttrNumber3([list LI IN OL])    {VALUE=1:i:n}
  457.     set htmlElemAttrChoices3([list LI IN OL])    {TYPE=A TYPE=a TYPE=I TYPE=i TYPE=1}
  458.     set htmlElemAttrOptional3(DIR) {COMPACT}
  459.     set htmlElemAttrOptional3(MENU) {COMPACT}
  460.     set htmlElemAttrOptional3(LI) {}
  461.     set htmlElemAttrOptional3(DL) {COMPACT}
  462.     set htmlElemAttrOptional3(DT) {}
  463.     set htmlElemAttrOptional3(DD)    {}
  464.     
  465.     set htmlElemAttrOptional3(FORM)    {ACTION= METHOD= ENCTYPE= }
  466.     set htmlElemAttrChoices3(FORM)    {METHOD=POST METHOD=GET}
  467.     htmlSetAttrUsed 3 FORM    {ACTION= METHOD= }
  468.     set htmlElemAttrRequired3(TEXT)    {NAME=}
  469.     set htmlElemAttrOptional3(TEXT)    {VALUE= SIZE= MAXLENGTH=}
  470.     set htmlElemAttrNumber3(TEXT)    {SIZE=1:i:n MAXLENGTH=1:i:n}
  471.     htmlSetAttrUsed 3 TEXT    {NAME= VALUE= SIZE= MAXLENGTH=}
  472.     set htmlElemAttrRequired3(CHECKBOX)    {NAME= VALUE=}
  473.     set htmlElemAttrOptional3(CHECKBOX)    {CHECKED}
  474.     htmlSetAttrUsed 3 CHECKBOX    {NAME= VALUE= CHECKED}
  475.     set htmlElemAttrRequired3(RADIO)    {NAME= VALUE=}
  476.     set htmlElemAttrOptional3(RADIO)    {CHECKED}
  477.     htmlSetAttrUsed 3 RADIO    {NAME= VALUE= CHECKED}
  478.     set htmlElemAttrOptional3(SUBMIT)    {NAME= VALUE=}
  479.     htmlSetAttrUsed 3 SUBMIT    {VALUE= }
  480.     set htmlElemAttrOptional3(RESET)    {VALUE= }
  481.     htmlSetAttrUsed 3 RESET    {VALUE= }
  482.     set htmlElemAttrRequired3(PASSWORD)    {NAME= }
  483.     set htmlElemAttrOptional3(PASSWORD)    {VALUE= SIZE= MAXLENGTH=}
  484.     set htmlElemAttrNumber3(PASSWORD)    {SIZE=1:i:n MAXLENGTH=1:i:n}
  485.     htmlSetAttrUsed 3 PASSWORD    {NAME= VALUE= SIZE= MAXLENGTH=}
  486.     set htmlElemAttrRequired3(HIDDEN)    {NAME= VALUE=}
  487.     set htmlElemAttrOptional3(HIDDEN)    {}
  488.     set htmlElemAttrRequired3(IMAGE)    {NAME= SRC=}
  489.     set htmlElemAttrOptional3(IMAGE)    {ALIGN=}
  490.     set htmlElemAttrChoices3(IMAGE)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM
  491.     ALIGN=LEFT ALIGN=RIGHT}
  492.     set htmlElemAttrRequired3(FILE)    {NAME= }
  493.     set htmlElemAttrOptional3(FILE)    {}
  494.     set htmlElemAttrRequired3(SELECT)    {NAME= }
  495.     set htmlElemAttrOptional3(SELECT)    {SIZE= MULTIPLE}
  496.     set htmlElemAttrNumber3(SELECT)     {SIZE=1:i:n}
  497.     htmlSetAttrUsed 3 SELECT    {NAME= SIZE= MULTIPLE}
  498.     set htmlElemAttrOptional3(OPTION)    {VALUE= SELECTED}
  499.     htmlSetAttrUsed 3 OPTION    {SELECTED}
  500.     set htmlElemAttrRequired3(TEXTAREA)    {NAME= ROWS= COLS=}
  501.     set htmlElemAttrOptional3(TEXTAREA)    {}
  502.     set htmlElemAttrNumber3(TEXTAREA)    {ROWS=1:i:n COLS=1:i:n}
  503.     
  504.     set htmlElemAttrOptional3(TABLE)    {BORDER= CELLSPACING= CELLPADDING= WIDTH= 
  505.     ALIGN=}
  506.     set htmlElemAttrChoices3(TABLE)    {ALIGN=LEFT ALIGN=CENTER ALIGN=RIGHT}
  507.     set htmlElemAttrNumber3(TABLE)    {BORDER=0:i:n CELLSPACING=0:i:n 
  508.     CELLPADDING=0:i:n WIDTH=1:i:%}
  509.     htmlSetAttrUsed 3 TABLE    {BORDER= CELLSPACING= CELLPADDING=}
  510.     set htmlElemAttrOptional3(TD)    {ALIGN= VALIGN= COLSPAN= ROWSPAN=  NOWRAP}
  511.     set htmlElemAttrChoices3(TD)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT 
  512.     VALIGN=BASELINE VALIGN=BOTTOM VALIGN=MIDDLE VALIGN=TOP }
  513.     set htmlElemAttrNumber3(TD)    {COLSPAN=1:i:n ROWSPAN=1:i:n}
  514.     htmlSetAttrUsed 3 TD    {ALIGN= VALIGN= COLSPAN= ROWSPAN= NOWRAP}
  515.     set htmlElemAttrOptional3(TH)    {ALIGN= VALIGN= COLSPAN= ROWSPAN=  NOWRAP}
  516.     set htmlElemAttrChoices3(TH)    {ALIGN=LEFT ALIGN=CENTER ALIGN=RIGHT 
  517.     VALIGN=BASELINE VALIGN=BOTTOM VALIGN=MIDDLE VALIGN=TOP }
  518.     set htmlElemAttrNumber3(TH)    {COLSPAN=1:i:n ROWSPAN=1:i:n}
  519.     htmlSetAttrUsed 3 TH    {ALIGN= VALIGN= COLSPAN= ROWSPAN= NOWRAP }
  520.     set htmlElemAttrOptional3(TR)    {ALIGN= VALIGN= }
  521.     set htmlElemAttrChoices3(TR)    {ALIGN=CENTER ALIGN=RIGHT ALIGN=LEFT  
  522.     VALIGN=BASELINE VALIGN=BOTTOM VALIGN=MIDDLE VALIGN=TOP }
  523.     htmlSetAttrUsed 3 TR    {ALIGN= VALIGN=}
  524.     set htmlElemAttrOptional3(CAPTION)    {ALIGN=}
  525.     set htmlElemAttrChoices3(CAPTION)    {ALIGN=BOTTOM ALIGN=TOP }
  526.     htmlSetAttrUsed 3 CAPTION    {ALIGN=}    
  527.     
  528.     set htmlElemAttrRequired3(MAP)        {NAME=}
  529.     set htmlElemAttrOptional3(MAP)        {}
  530.     set htmlElemAttrOptional3(AREA)    {SHAPE= COORDS= HREF= NOHREF ALT=}
  531.     set htmlElemAttrChoices3(AREA)    {SHAPE=RECT SHAPE=CIRCLE SHAPE=POLY
  532.     SHAPE=DEFAULT}
  533.     htmlSetAttrUsed 3 AREA    {SHAPE= COORDS= HREF= NOHREF}
  534.     
  535.     set htmlElemAttrRequired3(APPLET)    {CODE= WIDTH= HEIGHT=}
  536.     set htmlElemAttrOptional3(APPLET)     {CODEBASE= HSPACE= VSPACE= ALIGN= NAME= ALT=}
  537.     set htmlElemAttrChoices3(APPLET)    {ALIGN=TOP ALIGN=MIDDLE ALIGN=BOTTOM 
  538.     ALIGN=LEFT ALIGN=RIGHT}
  539.     set htmlElemAttrNumber3(APPLET)     {VSPACE=0:i:n HSPACE=0:i:n WIDTH=1:i:n
  540.     HEIGHT=1:i:n}
  541.     htmlSetAttrUsed 3 APPLET    {CODE= WIDTH= HEIGHT= CODEBASE= ALIGN= }
  542.     set htmlElemAttrRequired3(PARAM)    {NAME= VALUE=}
  543.     set htmlElemAttrOptional3(PARAM)    {}
  544.     
  545.     set htmlElemAttrRequired3(BASE)    {HREF= }
  546.     set htmlElemAttrOptional3(BASE)    {}
  547.     set htmlElemAttrOptional3(ISINDEX)    {PROMPT=}
  548.     set htmlElemAttrOptional3(LINK)    {HREF=  REL= REV= TITLE= ID=}
  549.     htmlSetAttrUsed 3 LINK    {HREF=}
  550.     set htmlElemAttrRequired3(META)    {HTTP-EQUIV= CONTENT=}
  551.     set htmlElemAttrOptional3(META)    {NAME= }
  552. }
  553.  
  554.  
  555. #
  556. # Character entities
  557. #
  558. proc htmlNewCharVar {var val} {
  559.     global htmlSpecialCharacter
  560.     global htmlCharacterSpecial
  561.     set htmlSpecialCharacter($var) $val 
  562.     set htmlCharacterSpecial($val) $var
  563. }
  564.  
  565. proc htmlNewCapCharVar {var men val} {
  566.     global htmlSpecialCapCharacter
  567.     global htmlCapCharacterSpecial
  568.     global htmlCapCharSpecMenu
  569.     set htmlSpecialCapCharacter($var) $val 
  570.     set htmlCapCharacterSpecial($val) $var
  571.     set htmlCapCharSpecMenu($men) $val
  572. }
  573.  
  574. htmlNewCharVar "ｧ" szlig
  575. htmlNewCharVar "ˆ" agrave
  576. htmlNewCharVar "‡" aacute
  577. htmlNewCharVar "‰" acirc
  578. htmlNewCharVar "‹" atilde
  579. htmlNewCharVar "Š" auml
  580. htmlNewCharVar "Œ" aring
  581. htmlNewCharVar "ｾ" aelig
  582. htmlNewCharVar "" ccedil
  583. htmlNewCharVar "" egrave
  584. htmlNewCharVar "Ž" eacute
  585. htmlNewCharVar "" ecirc
  586. htmlNewCharVar "‘" euml
  587. htmlNewCharVar "“" igrave
  588. htmlNewCharVar "’" iacute
  589. htmlNewCharVar "”" icirc
  590. htmlNewCharVar "•" iuml
  591. htmlNewCharVar    "eth" eth
  592. htmlNewCharVar "–" ntilde
  593. htmlNewCharVar "˜" ograve
  594. htmlNewCharVar "—" oacute
  595. htmlNewCharVar "™" ocirc
  596. htmlNewCharVar "›" otilde
  597. htmlNewCharVar "š" ouml
  598. htmlNewCharVar "ｿ" oslash
  599. htmlNewCharVar "" ugrave
  600. htmlNewCharVar "œ" uacute
  601. htmlNewCharVar "ž" ucirc
  602. htmlNewCharVar "Ÿ"    uuml
  603. htmlNewCharVar "yｫ" yacute
  604. htmlNewCharVar "thorn" thorn
  605. htmlNewCharVar "ﾘ"    yuml
  606.  
  607. htmlNewCapCharVar "ﾋ" "ﾋ" Agrave
  608. htmlNewCapCharVar "ç" "Aｫ" Aacute
  609. htmlNewCapCharVar "å" "A^" Acirc
  610. htmlNewCapCharVar "ﾌ" "ﾌ" Atilde
  611. htmlNewCapCharVar "\" "\" Auml
  612. htmlNewCapCharVar "" "" Aring
  613. htmlNewCapCharVar "ｮ" "ｮ" Aelig
  614. htmlNewCapCharVar "‚" "‚" Ccedil
  615. htmlNewCapCharVar "é" "E`" Egrave
  616. htmlNewCapCharVar "ƒ" "ƒ" Eacute
  617. htmlNewCapCharVar "æ" "E^" Ecirc
  618. htmlNewCapCharVar "è" "Eｬ" Euml
  619. htmlNewCapCharVar "í" "I`" Igrave
  620. htmlNewCapCharVar "ê" "Iｫ" Iacute
  621. htmlNewCapCharVar "ë" "I^" Icirc
  622. htmlNewCapCharVar "ì" "Iｬ" Iuml
  623. htmlNewCapCharVar "ETH" "ETH" ETH
  624. htmlNewCapCharVar "„" "„" Ntilde
  625. htmlNewCapCharVar "ñ" "O`" Ograve
  626. htmlNewCapCharVar "î" "Oｫ" Oacute
  627. htmlNewCapCharVar "ï" "O^" Ocirc
  628. htmlNewCapCharVar "ﾍ" "ﾍ" Otilde
  629. htmlNewCapCharVar "…" "…" Ouml
  630. htmlNewCapCharVar "ｯ" "ｯ" Oslash
  631. htmlNewCapCharVar "ô" "U`" Ugrave
  632. htmlNewCapCharVar "ò" "Uｫ" Uacute
  633. htmlNewCapCharVar "ó" "U^" Ucirc
  634. htmlNewCapCharVar "†" "†"    Uuml
  635. htmlNewCapCharVar "Yｫ" "Yｫ" Yacute
  636. htmlNewCapCharVar "THORN" "THORN" THORN
  637.  
  638. set htmlSpecialSymbCharacter(¥")    quot
  639. set htmlSpecialSymbCharacter(ampersand) amp
  640. set htmlSpecialSymbCharacter([list less than]) lt
  641. set htmlSpecialSymbCharacter([list greater than]) gt
  642. set htmlSpecialSymbCharacter([list nonbreak space])    nbsp
  643. set htmlSpecialSymbCharacter(ﾁ)    "#161"
  644. set htmlSpecialSymbCharacter(｢) "#162"
  645. set htmlSpecialSymbCharacter(｣)    "#163"
  646. set htmlSpecialSymbCharacter(currency)    "#164"
  647. set htmlSpecialSymbCharacter(ｴ)    "#165"
  648. set htmlSpecialSymbCharacter(､) "#167"
  649. set htmlSpecialSymbCharacter(ｩ)        copy
  650. set htmlSpecialSymbCharacter(ｻ)    "#170"
  651. set htmlSpecialSymbCharacter(ﾇ)    "#171"
  652. set htmlSpecialSymbCharacter(ｨ)        reg
  653. set htmlSpecialSymbCharacter(｡)    "#176"
  654. set htmlSpecialSymbCharacter(ｱ) "#177"
  655. set htmlSpecialSymbCharacter(ｵ)    "#181"
  656. set htmlSpecialSymbCharacter(ｦ)    "#182"
  657. set htmlSpecialSymbCharacter(middot) "#183"
  658. set htmlSpecialSymbCharacter(ｼ) "#186"
  659. set htmlSpecialSymbCharacter(ﾈ) "#187"
  660. set htmlSpecialSymbCharacter([list a quarter]) "#188"
  661. set htmlSpecialSymbCharacter([list a half]) "#189"
  662. set htmlSpecialSymbCharacter([list three quarters]) "#190"
  663. set htmlSpecialSymbCharacter(ﾀ)    "#191"
  664. set htmlSpecialSymbCharacter(times)    "#215"
  665. set htmlSpecialSymbCharacter(ﾖ)    "#247"
  666.  
  667. # 
  668. # Colors for background, text and links
  669. #
  670.  
  671. proc htmlNewColor {var val } {
  672.     global htmlColorName
  673.     global htmlColorNumber
  674.     set htmlColorName($var) $val 
  675.     set htmlColorNumber($val) $var
  676. }
  677. htmlNewColor blue        "#0000FF"
  678. htmlNewColor green        "#00FF00"
  679. htmlNewColor black        "#000000"
  680. htmlNewColor red        "#FF0000"
  681. htmlNewColor yellow        "#FFFF00"
  682. htmlNewColor white        "#FFFFFF"
  683. htmlNewColor cyan        "#00FFFF"
  684. htmlNewColor magenta    "#FF00FF"
  685.  
  686. # A list of colours
  687. set basicColors [lsort [array names htmlColorName]]
  688.  
  689.  
  690. #===============================================================================
  691. # Menu Processing
  692. #===============================================================================
  693.  
  694. proc htmlMenuItem {menu item} {
  695.     global htmlMenu HOME htmlElemProc
  696.  
  697.     switch -glob $menu {
  698.         "･*" {
  699.             switch $item {
  700.                 "New document"    {htmlNewTemplate BODY}
  701.                 "Send file to browser"    {htmlSendWindow}
  702.                 "Help"            {edit -r -c "$HOME:Help:HTML Help"}
  703.                 "Palette"     { float -m $htmlMenu -n HTML -z HTML }
  704.             }
  705.         }
  706.         "Packages"    {
  707.             switch $item {
  708.                 "HTML 3.2"    {htmlLoadPackage 3}
  709.                 "Extensions" {htmlLoadPackage 1}
  710.             }
  711.         }
  712.         "HTML Utilities" {
  713.             switch $item {
  714.                 "Select Container"    {htmlBalance}
  715.                 "Select Opening"    {htmlSelectOpening 0}
  716.                 "Untag"                {htmlUnTag 0}
  717.                 "Untag and Select"    {htmlUnTag 1}
  718.                 "Remove Opening"    {htmlSelectOpening 1}
  719.                 "Change Container"    {htmlChangeContainer}
  720.                 "Change Opening"    {htmlChangeOpening}
  721.                 "Move files"        {htmlMoveFiles}
  722.                 "Remove marks"        {htmlTabDeleteAll}
  723.                 "Set Server URL"        {htmlServerURL}
  724.             }
  725.         }
  726.         "Colors" {
  727.             switch $item {
  728.                 "Reveal color" {htmlRevealColor}
  729.                 "New color" {htmlAddNewColor}
  730.                 "Change color" {htmlChangeColor}
  731.                 "Remove colors" {htmlRemoveColors}
  732.             }
  733.         }
  734.         "Character translation"    {
  735.             switch $item {
  736.                 "穴š -> HTML"        {htmlCharacterstohtml}
  737.                 "HTML -> 穴š"    {htmltoCharacters}
  738.             }
  739.         }
  740.         "URLs"    {
  741.             switch $item {
  742.                 "Add selection"    {htmlSelToURL}
  743.                 "Add clipboard"    {htmlScrapToURL}
  744.                 "Clean up"        {htmlCleanUpCache URLs}
  745.                 "Clear"            {htmlClearCache URLs}
  746.             }
  747.         }
  748.         "Windows"    {
  749.             switch $item {
  750.                 "Clean up"    {htmlCleanUpCache windows}
  751.                 "Clear"        {htmlClearCache windows}
  752.             }
  753.         }
  754.         "Footers" {
  755.             switch $item {
  756.                 "New Footer"        {htmlFooter}
  757.                 "Remove Footers"        {htmlRemoveFooter}
  758.                 "Insert Footer"        {htmlInsertFooter}
  759.             }                
  760.         }
  761.         "Check Links in" {
  762.             switch $item {
  763.                 "home page" {htmlCheckLinks "home"}
  764.                 "folder" {htmlCheckLinks "folder"}
  765.                 "file" {htmlCheckLinks "file"}
  766.             }                
  767.         }
  768.         "Extend" {
  769.             switch $item {
  770.                 "New element" {htmlCustomNewElem}
  771.                 "New attributes" {htmlCustomNewAttr}
  772.                 "New choices"    {htmlCustomNewChoice}
  773.                 "Change key binding" {htmlCustomChangeKey}
  774.                 "Change type and layout" {htmlCustomChangeType}
  775.                 "Remove attributes" {htmlCustomRemoveAttrs}
  776.                 "Remove additions" {htmlCustomRemove}
  777.             }
  778.         }
  779.         "Use Attributes"    {
  780.             htmlUseAttrs $item
  781.         }
  782.         "Headers" {
  783.              switch $item {
  784.                 "Header1"    {htmlBuildCRElem H1  1}
  785.                 "H1 no attr" {htmlBuildCRElem H1 1 NOATTR}
  786.                 "Header2"    {htmlBuildCRElem H2  1}
  787.                 "H2 no attr" {htmlBuildCRElem H2 1 NOATTR}
  788.                 "Header3"    {htmlBuildCRElem H3  1}
  789.                 "H3 no attr" {htmlBuildCRElem H3 1 NOATTR}
  790.                 "Header4"    {htmlBuildCRElem H4  1}
  791.                 "H4 no attr" {htmlBuildCRElem H4 1 NOATTR}
  792.                 "Header5"    {htmlBuildCRElem H5  1}
  793.                 "H5 no attr" {htmlBuildCRElem H5 1 NOATTR}
  794.                 "Header6"    {htmlBuildCRElem H6  1}
  795.                 "H6 no attr" {htmlBuildCRElem H6 1 NOATTR}
  796.             }
  797.         }
  798.         "Blocks and Dividers" {
  799.             switch $item {
  800.                 "Insert line breaks" {htmlInsertLineBreaks}
  801.                 "Remove line breaks" {htmlRemoveLineBreaks}
  802.                 "Insert paragraphs" {htmlInsertParagraphs}
  803.                 "Paragraph"    {htmlElemParagraph}
  804.                 "P no attr" {htmlElemParagraph NOATTR}
  805.                 "Division"        {htmlBuildCR2Elem DIV}
  806.                 "DIV no attr"        {htmlBuildCR2Elem DIV NOATTR}
  807.                 "Block quote"    {htmlBuildCR2Elem BLOCKQUOTE}
  808.                 "Address"        {htmlBuildCRElem ADDRESS}
  809.                 "Center"        {htmlBuildCR2Elem CENTER}
  810.                 "Preformatted"    {htmlBuildCR2Elem PRE}
  811.                 "Multi column"    {htmlBuildCR2Elem MULTICOL}
  812.                 "Spacing"        {htmlBuildOpening SPACER}
  813.                 "Line break"        {htmlBuildOpening BR 0 1}
  814.                 "BR no attr"        {htmlBuildOpening BR 0 1 NOATTR}
  815.                 "Horizontal rule"    {htmlBuildOpening HR 1 1}
  816.                 "HR no attr"    {htmlBuildOpening HR 1 1 NOATTR}
  817.                 "No linebreak"    {htmlBuildElem NOBR}
  818.                 "Word break"    {htmlBuildOpening WBR 0 1}
  819.             }
  820.         }
  821.         "Styles"    {
  822.             switch $item {
  823.                 "Font"            {htmlBuildElem FONT}
  824.                 "Basefont"        {htmlBuildOpening BASEFONT 1 1}
  825.                 "Bold"            {htmlBuildElem B}
  826.                 "Italic"        {htmlBuildElem I}
  827.                 "Strike out"    {htmlBuildElem STRIKE}
  828.                 "Underlined"    {htmlBuildElem U}
  829.                 "Subscript"        {htmlBuildElem SUB}
  830.                 "Superscript"    {htmlBuildElem SUP}
  831.                 "Bigger"        {htmlBuildElem BIG}
  832.                 "Smaller"        {htmlBuildElem SMALL}
  833.                 "Emphasis"        {htmlBuildElem EM}
  834.                 "Strong"        {htmlBuildElem STRONG}
  835.                 "Definition"    {htmlBuildElem DFN}
  836.                 "Code"            {htmlBuildElem CODE}
  837.                 "Variable"        {htmlBuildElem VAR}
  838.                 "Citation"        {htmlBuildElem CITE}
  839.                 "Keyboard"        {htmlBuildElem KBD}
  840.                 "Typewriter"    {htmlBuildElem TT}
  841.                 "Sample"        {htmlBuildElem SAMP}
  842.                 "Blinking"        {htmlBuildElem BLINK}
  843.             }
  844.         }
  845.         "Links"    {
  846.             switch $item {
  847.                 "Link or Anchor" {htmlBuildElem A}
  848.                 "Image"    {htmlBuildOpening IMG}
  849.                 "Embed" {htmlBuildOpening EMBED}
  850.                 "No embed" {htmlBuildCR2Elem NOEMBED}
  851.             }
  852.         }
  853.         "Plug-ins" {
  854.             switch $item {
  855.                 "General" {htmlBuildOpening EMBED}
  856.                 "LiveAudio" {htmlBuildOpening EMBED 0 0 LIVEAUDIO}
  857.                 "LiveVideo" {htmlBuildOpening EMBED 0 0 LIVEVIDEO}
  858.                 "QuickTime Movie" {htmlBuildOpening EMBED 0 0 "QUICKTIME MOVIE"}
  859.                 "QuickTime VR" {htmlBuildOpening EMBED 0 0 "QUICKTIME VR"}
  860.                 "RealAudio"    {htmlBuildOpening EMBED 0 0 REALAUDIO}
  861.                 "No embed" {htmlBuildCR2Elem NOEMBED}
  862.             }
  863.         }
  864.         "Lists"    {
  865.             switch $item {
  866.                 "Make list"    {htmlMakeList}
  867.                 "Bulleted"    {htmlBuildList UL "LI IN UL" UL}
  868.                 "UL no attr"    {htmlBuildList UL NOATTR NOATTR}
  869.                 "New bulleted item" {htmlElemListEntry "LI IN UL"}
  870.                 "Numbered"    {htmlBuildList OL "LI IN OL" OL}
  871.                 "OL no attr"    {htmlBuildList OL NOATTR NOATTR}
  872.                 "New numbered item" {htmlElemListEntry "LI IN OL"}
  873.                 "Directory"    {htmlBuildList DIR LI}
  874.                 "Menu"        {htmlBuildList MENU LI}
  875.                 "New list item"    {htmlElemListEntry LI}
  876.                 "Discursive"    {htmlBuildDiscList}
  877.                 "New discursive entry"    {htmlElemDiscEntry}
  878.             }
  879.         }
  880.         "Forms" {
  881.             switch $item {
  882.                 "Form"        {htmlBuildCR2Elem FORM}
  883.                 "Text"        {htmlBuildInputElem TEXT}
  884.                 "Checkbox"    {htmlBuildInputElem CHECKBOX}
  885.                 "Button"    {htmlBuildInputElem BUTTON}
  886.                 "Radio"        {htmlBuildInputElem RADIO}
  887.                 "Submit"        {htmlBuildInputElem SUBMIT}
  888.                 "Reset"        {htmlBuildInputElem RESET}
  889.                 "Password"    {htmlBuildInputElem PASSWORD}
  890.                 "Hidden"        {htmlBuildInputElem HIDDEN}
  891.                 "Image"        {htmlBuildInputElem IMAGE}
  892.                 "File upload" {htmlBuildInputElem FILE}
  893.                 "Select"        {htmlBuildCR2Elem SELECT}
  894.                 "Option"        {htmlBuildOpening OPTION 1 0}
  895.                 "Textarea"    {htmlBuildCRElem TEXTAREA}
  896.             }
  897.         }
  898.         "Tables" {
  899.             switch $item {
  900.                 "Table template" {htmlTableTemplate}
  901.                 "Tabs to Rows"        {htmltabsToRows}
  902.                 "Rows to Tabs"        {htmlrowsToTabs}
  903.                 Table    {htmlBuildCR2Elem TABLE}
  904.                 Row        {htmlBuildCR2Elem TR}
  905.                 "TR no attr"        {htmlBuildCR2Elem TR NOATTR}
  906.                 Header        {htmlBuildElem TH}
  907.                 "TH no attr"        {htmlBuildElem TH NOATTR}
  908.                 Cell        {htmlBuildElem TD}
  909.                 "TD no attr"        {htmlBuildElem TD NOATTR}
  910.                 Caption    {htmlBuildCRElem CAPTION}
  911.             }
  912.         }
  913.         "Frames" {
  914.             switch $item {
  915.                 "New doc. with frames"    {htmlNewTemplate FRAMESET}
  916.                 Frameset        {htmlBuildCR2Elem FRAMESET}
  917.                 Frame        {htmlBuildOpening FRAME 0 1}
  918.                 "No frames"    {htmlBuildCR2Elem NOFRAMES}
  919.             }
  920.         }
  921.         "Image maps" {
  922.             switch $item {
  923.                 Map        {htmlBuildCR2Elem MAP}
  924.                 Area    {htmlBuildOpening AREA 0 1}
  925.             }
  926.         }
  927.         "Java"    {
  928.             switch $item {
  929.                 Applet    {htmlBuildCR2Elem APPLET}
  930.                 Parameter {htmlBuildOpening PARAM 0 1}
  931.                 Script    {htmlBuildCR2Elem SCRIPT}
  932.                 "No script" {htmlBuildCR2Elem NOSCRIPT}
  933.             }
  934.         }
  935.         "Other"    {
  936.             switch $item {
  937.                 "Comment"    {htmlElemComment}
  938.                 "Base"    {htmlBuildOpening BASE 1 1}
  939.                 "Isindex" {htmlBuildOpening ISINDEX 1 1}
  940.                 "Link"    {htmlBuildOpening LINK 1 1}
  941.                 "Meta"    {htmlBuildOpening META 1 1}
  942.                 "Comment line" {htmlDividingLine}
  943.             }
  944.         }
  945.         "Character Entities"    {
  946.             switch $item {
  947.                 "Add"    {htmlAddCommonChars}
  948.                 "Default" {htmlDefaultCommonChars}
  949.                 "Clear"    {htmlClearCommonChars}
  950.                 default        {htmlInsertCharacter $item}
  951.             }
  952.         }
  953.         "small chars" {
  954.             switch $item {
  955.                 default        {htmlInsertCharacter $item}
  956.             }
  957.         }
  958.         "capital chars" {
  959.             switch $item {
  960.                 default        {htmlInsertCharacter $item}
  961.             }
  962.         }
  963.         "other chars" {
  964.             switch $item {
  965.                 default        {htmlInsertCharacter $item}
  966.             }
  967.         }
  968.         "Custom"    {
  969.             catch {eval $htmlElemProc([string toupper $item])}
  970.         }
  971.     }
  972. }
  973.  
  974. #
  975. # The menu.
  976. #
  977. # This is built up with lappends because I want parts of it to be 
  978. # dynamic, to depend on which elements have attributes defined on 
  979. # them.
  980. #
  981. # <B = control <I = option <U = shift <O = command <S = dynamical
  982.  
  983. proc htmlBuildMenu {} {
  984.     global htmlCustomMenuList htmlPackageToUse modifiedModeVars
  985.     global htmlMenu HTMLmodeVars htmlSpecialCharacter
  986.     global htmlCapCharSpecMenu htmlSpecialSymbCharacter
  987.     global htmlExtIsLoaded html32IsLoaded htmlElemKeyBinding
  988.     global htmlShownWarning htmlElemAttrOptional1 htmlElemAttrOptional3
  989.     
  990.     set commonChars $HTMLmodeVars(commonChars)
  991. # htmlPackageToUse must be set here. It's used globally in many places.
  992.     set htmlPackageToUse $HTMLmodeVars(htmlPackageToUse)
  993.     # Check if user used HTML 2.0!
  994.     if {[lsearch -exact {1 3} $htmlPackageToUse] < 0} {
  995.         set htmlPackageToUse 3
  996.         set HTMLmodeVars(htmlPackageToUse) 3
  997.         lappend modifiedModeVars {htmlPackageToUse HTMLmodeVars}
  998.     }
  999.     
  1000.     if {$htmlPackageToUse == 1} {
  1001.         if {!$htmlExtIsLoaded} {
  1002.             htmlExtensions
  1003.             set htmlExtIsLoaded 1
  1004.             rename htmlExtensions ""
  1005.         }
  1006.     } else {        
  1007.         if {!$html32IsLoaded} {
  1008.             html32
  1009.             set html32IsLoaded 1
  1010.             rename html32 ""
  1011.         }
  1012.     }
  1013.     
  1014.     # start empty
  1015.     set htmlMenuList {}
  1016.  
  1017.     lappend htmlMenuList "<O<U/SSend file to browser" "Help" "Palette"
  1018.     
  1019.     # Packages
  1020.     set htmlPackagesMenu [list menu -M HTML -p htmlMenuItem -m -n Packages ¥
  1021.         [list "HTML 3.2" "Extensions" ]]
  1022.     lappend htmlMenuList $htmlPackagesMenu
  1023.     
  1024. #===============================================================================
  1025. # Utilities
  1026. #===============================================================================
  1027.     
  1028.     # Colors
  1029.     set htmlColorMenu [list menu -M HTML -p htmlMenuItem -m -n "Colors" ¥
  1030.     [list "<O<B<U/CReveal color" "New color" "Change color" "Remove colors"]]
  1031.     lappend tmpMenuList  $htmlColorMenu
  1032.     
  1033.     # Character conversion
  1034.     set htmlConvertMenu [list menu -M HTML -p htmlMenuItem -m -n "Character translation" ¥
  1035.         [list "穴š -> HTML" "HTML -> 穴š" ]]
  1036.     lappend tmpMenuList $htmlConvertMenu
  1037.  
  1038.     # URLs
  1039.     set htmlURLsMenu [list menu -M HTML -p htmlMenuItem -m -n "URLs" [list "Add selection" ¥
  1040.             "Add clipboard" "Clean up" "Clear"]]
  1041.     lappend tmpMenuList $htmlURLsMenu
  1042.     
  1043.     # Windows
  1044.     set htmlWinMenu [list menu -M HTML -p htmlMenuItem -m -n "Windows" [list ¥
  1045.             "Clean up" "Clear"]]
  1046.     lappend tmpMenuList $htmlWinMenu
  1047.     
  1048.     # Footers
  1049.     set htmlFooterMenu [list menu -M HTML -p htmlMenuItem -m -n "Footers" ¥
  1050.     [list "New Footer" "Remove Footers" "Insert Footer"]]
  1051.     lappend tmpMenuList $htmlFooterMenu
  1052.     
  1053.     # Check links
  1054.     set htmlCheckLinkMenu [list menu -M HTML -p htmlMenuItem -m -n "Check Links in" ¥
  1055.     [list "home page" "folder" "file"]]
  1056.     lappend tmpMenuList $htmlCheckLinkMenu
  1057.  
  1058.     # Extending HTML mode.
  1059.     if {$htmlPackageToUse == 1} {
  1060.         set htmlExtendMenu [list menu -M HTML -p htmlMenuItem -m -n "Extend" ¥
  1061.         [list "New element" "New attributes" "New choices" "Change key binding" ¥
  1062.         "Change type and layout" "Remove attributes" "Remove additions"]]
  1063.         lappend tmpMenuList $htmlExtendMenu
  1064.     }
  1065.     
  1066.     set htmlUtilitiesMenu [list menu -M HTML -p htmlMenuItem -m ¥
  1067.     -n "HTML Utilities" [concat $tmpMenuList ¥
  1068.     [list "(-" "<S<O/BSelect Container" "<S<O<I/BSelect Opening" ¥
  1069.     "<S<B/eUntag" "<S<B<I/eUntag and Select" "<B/fRemove Opening" ¥
  1070.     "<S<B/gChange Container" "<S<B<I/gChange Opening" "<O/cRemove marks" "(-" "Move files" ¥
  1071.     "(-" "Set Server URL"]]]
  1072.     lappend htmlMenuList $htmlUtilitiesMenu
  1073.  
  1074.  
  1075.     # Use Attributes
  1076.     # Dynamically-built list of elements whose default attributes can be selected
  1077.     
  1078.     foreach a [array names htmlElemAttrOptional$htmlPackageToUse] {
  1079.         if {[llength [set htmlElemAttrOptional${htmlPackageToUse}($a)]]} {lappend htmlPossibleToUse $a}
  1080.     }
  1081.     set htmlUseAttrsMenu [list menu -M HTML -p htmlMenuItem -m -n "Use Attributes" ¥
  1082.         [lsort $htmlPossibleToUse]]
  1083.     lappend htmlMenuList $htmlUseAttrsMenu
  1084.  
  1085.  
  1086.     # New document
  1087.     lappend htmlMenuList "(-" "<B<U<I/DNew document"
  1088.     
  1089.     # Header1, Header2...
  1090.     set htmlHeadersMenu [list menu -M HTML -p htmlMenuItem -m -n Headers ¥
  1091.     [list "<S<B<O/1Header1" "<S<B<I<O/1H1 no attr" ¥
  1092.     "<S<B<O/2Header2" "<S<B<I<O/2H2 no attr" ¥
  1093.     "<S<B<O/3Header3" "<S<B<I<O/3H3 no attr"¥
  1094.     "<S<B<O/4Header4" "<S<B<I<O/4H4 no attr"¥
  1095.     "<S<B<O/5Header5" "<S<B<I<O/5H5 no attr" ¥
  1096.     "<S<B<O/6Header6" "<S<B<I<O/6H6 no attr"]]
  1097.     
  1098.     lappend htmlMenuList $htmlHeadersMenu
  1099.     
  1100.  
  1101.     # Blocks and Dividers
  1102.     if  {$htmlPackageToUse == 1} {
  1103.         set htmlBlocksMenu [list menu -M HTML -p htmlMenuItem -m -n "Blocks and Dividers" ¥
  1104.         [list "<E<SRemove line breaks" "<SInsert line breaks" ¥
  1105.         "Insert paragraphs" "(-" ¥
  1106.         "<S<U/bParagraph" "<S<U<I/bP no attr" ¥
  1107.         "<E<S<U<O/bDivision" "<S<U<I<O/bDIV no attr" ¥
  1108.         "<B<O/QBlock quote" "<B<O/SAddress" ¥
  1109.         "<B<O/CCenter" "<B<O/PPreformatted" "<B<O/XMulti column" "<B<O/ZSpacing" ¥
  1110.         "(-" "<S<O/bLine break" "<S<I<O/bBR no attr" ¥
  1111.         "<S<B<O/HHorizontal rule" "<S<B<I<O/HHR no attr" ¥
  1112.         "<B<O/BNo linebreak" "<B<O/WWord break"]]
  1113.     } else {
  1114.         set htmlBlocksMenu [list menu -M HTML -p htmlMenuItem -m -n "Blocks and Dividers" ¥
  1115.         [list "<E<SRemove line breaks" "<SInsert line breaks" ¥
  1116.         "Insert paragraphs" "(-" ¥
  1117.         "<S<U/bParagraph" "<S<U<I/bP no attr" ¥
  1118.         "<E<S<U<O/bDivision" "<S<U<I<O/bDIV no attr" ¥
  1119.         "<B<O/QBlock quote" "<B<O/SAddress" ¥
  1120.         "<B<O/CCenter" "<B<O/PPreformatted" ¥
  1121.         "(-" "<S<O/bLine break" "<S<I<O/bBR no attr" ¥
  1122.         "<S<B<O/HHorizontal rule" "<S<B<I<O/HHR no attr"]]
  1123.     }
  1124.     
  1125.     lappend htmlMenuList $htmlBlocksMenu
  1126.  
  1127.  
  1128.     # Styles
  1129.     if {$htmlPackageToUse ==1} {
  1130.         set htmlStylesMenu [list menu -M HTML -p htmlMenuItem -m -n Styles ¥
  1131.         [list "<B<I/FFont" "<B<I/NBasefont" "(-" "<B<I/BBold" "<B<I/IItalic" ¥
  1132.         "<B<I/-Strike out" "<B<I<O/-Underlined" "<B<I/.Superscript" "<B<I/,Subscript"¥
  1133.         "<O<B<I/.Bigger" "<O<B<I/,Smaller" "<B<I/TTypewriter" "<B<I/ZBlinking" ¥
  1134.         "(-" "<B<I/EEmphasis" "<B<I/SStrong" ¥
  1135.         "<B<I/DDefinition" "<B<I/CCode" "<B<I/VVariable" ¥
  1136.         "<B<I/XCitation" "<B<I/KKeyboard" ¥
  1137.         "<B<I/PSample"]]
  1138.     } else {
  1139.         set htmlStylesMenu [list menu -M HTML -p htmlMenuItem -m -n Styles ¥
  1140.         [list  "<B<I/FFont" "(-" "<B<I/BBold" "<B<I/IItalic" ¥
  1141.         "<B<I/-Strike out" "<B<I<O/-Underlined" "<B<I/.Superscript" "<B<I/,Subscript"¥
  1142.         "<O<B<I/.Bigger" "<O<B<I/,Smaller" "<B<I/TTypewriter" "(-" "<B<I/EEmphasis"¥
  1143.         "<B<I/SStrong" "<B<I/DDefinition" "<B<I/CCode" "<B<I/VVariable" ¥
  1144.         "<B<I/XCitation" "<B<I/KKeyboard" ¥
  1145.         "<B<I/PSample" ]]
  1146.     }    
  1147.     
  1148.     lappend htmlMenuList $htmlStylesMenu
  1149.     
  1150.  
  1151.     # Links
  1152.     set htmlLinksMenu [list menu -M HTML -p htmlMenuItem -m -n Links ¥
  1153.     [list "<B<O/ALink or Anchor" ¥
  1154.     "<B<O/IImage" ]]
  1155.     
  1156.     lappend htmlMenuList $htmlLinksMenu
  1157.     
  1158.     # Plug-ins
  1159.     if {$htmlPackageToUse == 1} {
  1160.         set htmlPluginMenu [list menu -M HTML -p htmlMenuItem -m -n Plug-ins ¥
  1161.         [list "<B<O/EGeneral" "LiveAudio" "LiveVideo" "QuickTime Movie" ¥
  1162.         "QuickTime VR" "RealAudio" (- "<B<O/NNo embed"]]
  1163.         lappend htmlMenuList $htmlPluginMenu
  1164.     }
  1165.     
  1166.     # Lists    
  1167.     set htmlListsMenu [list menu -M HTML -p htmlMenuItem -m -n Lists ¥
  1168.     [list "Make list" "(-" "<S<B<O/UBulleted" "<S<B<I<O/UUL no attr" ¥
  1169.     "<B<I/UNew bulleted item" "<S<B<O/ONumbered" "<S<B<I<O/OOL no attr"¥
  1170.     "<B<I/ONew numbered item" "<B<O/DDirectory" ¥
  1171.     "<B<O/MMenu" "<B<I/LNew list item" "(-" ¥
  1172.     "<U<B<O/DDiscursive" "<B<I<O/LNew discursive entry"]]
  1173.     
  1174.     lappend htmlMenuList $htmlListsMenu
  1175.  
  1176.  
  1177.     # Forms
  1178.     if {$htmlPackageToUse == 1} {
  1179.         set htmlFormsMenu [list menu -M HTML -p htmlMenuItem -m -n Forms ¥
  1180.         [list "<B<U/FForm" "(-" "<B<U/TText" "<B<U/BCheckbox" "<B<U/NButton" ¥
  1181.         "<B<U/RRadio" "<B<U/SSubmit" ¥
  1182.         "<B<U/CReset" "<B<U/PPassword" "<B<U/HHidden" "<B<U/IImage" "<B<U/UFile upload" ¥
  1183.         "(-" "<B<I<U/SSelect" "<B<U/OOption" "<B<U<I/TTextarea"]]
  1184.     } else {
  1185.         set htmlFormsMenu [list menu -M HTML -p htmlMenuItem -m -n Forms ¥
  1186.         [list "<B<U/FForm" "(-" "<B<U/TText" "<B<U/BCheckbox" ¥
  1187.         "<B<U/RRadio" "<B<U/SSubmit" ¥
  1188.         "<B<U/CReset" "<B<U/PPassword" "<B<U/HHidden" "<B<U/IImage" "<B<U/UFile upload" ¥
  1189.         "(-" "<B<I<U/SSelect" "<B<U/OOption" "<B<U<I/TTextarea"]]
  1190.     }    
  1191.     
  1192.     lappend htmlMenuList $htmlFormsMenu
  1193.     
  1194.     
  1195.     # Tables
  1196.     set htmlTablesMenu [list menu -M HTML -p htmlMenuItem -m -n Tables ¥
  1197.     [list "Table template" "<E<SRows to Tabs" "<STabs to Rows" "(-" ¥
  1198.     "<U<O/TTable" "<S<U<O/RRow" "<S<U<I<O/RTR no attr" ¥
  1199.     "<S<U<O/HHeader" "<S<U<I<O/HTH no attr" ¥
  1200.     "<S<U<O/DCell" "<S<U<I<O/DTD no attr" "<U<O/CCaption"]]
  1201.     lappend htmlMenuList $htmlTablesMenu
  1202.     
  1203.  
  1204.     # Frames
  1205.     if {$htmlPackageToUse == 1} {    
  1206.         set htmlFramesMenu [list menu -M HTML -p htmlMenuItem -m -n Frames ¥
  1207.         [list "<B<U<I/FNew doc. with frames" "<B<U<I/OFrameset" ¥
  1208.         "<B<U<I/RFrame" "<B<U<I/NNo frames"]]
  1209.         lappend htmlMenuList $htmlFramesMenu
  1210.     }
  1211.     
  1212.  
  1213.     # Client-side image maps 
  1214.     set htmlImageMenu [list menu -M HTML -p htmlMenuItem -m -n "Image maps" ¥
  1215.     [list "<B<U/MMap" "<B<U/AArea"]]
  1216.     lappend htmlMenuList $htmlImageMenu
  1217.     
  1218.  
  1219.     # Java
  1220.     if {$htmlPackageToUse == 1} {    
  1221.         set htmlJavaMenu [list menu -M HTML -p htmlMenuItem -m -n "Java" ¥
  1222.         [list "<U<I<O/JApplet" "<U<I<O/PParameter" "<U<I<O/SScript" "<U<I<O/NNo script"]]
  1223.         lappend htmlMenuList $htmlJavaMenu
  1224.     } else {
  1225.         set htmlJavaMenu [list menu -M HTML -p htmlMenuItem -m -n "Java" ¥
  1226.         [list "<U<I<O/JApplet" "<U<I<O/PParameter"]]
  1227.         lappend htmlMenuList $htmlJavaMenu
  1228.     }
  1229.  
  1230.     # Other stuff, miscellaneous
  1231.     set htmlOtherMenu [list menu -M HTML -p htmlMenuItem -m -n "Other" ¥
  1232.         [list  "<B<U<I/CComment" ¥
  1233.          "<B<U<I/BBase" "<B<U<I/IIsindex" "<B<U<I/LLink" "<B<U<I/MMeta" ¥
  1234.          "Comment line"]]
  1235.     lappend htmlMenuList $htmlOtherMenu
  1236.  
  1237.     # Allow user to insert custom menu items
  1238.     
  1239.     if {$htmlPackageToUse == 1 && [info exists htmlElemKeyBinding]} {
  1240.         foreach elem [lsort [array names htmlElemKeyBinding]] {
  1241.             lappend customMenuList "$htmlElemKeyBinding($elem)[string range $elem 0 0][string tolower [string range $elem 1 end]]"
  1242.         }
  1243.         set htmlCustomMenu [list menu -M HTML -p htmlMenuItem -m -n "Custom" $customMenuList]
  1244.         lappend htmlMenuList $htmlCustomMenu
  1245.     }
  1246.     
  1247.     # Show alert if user uses old way of defining custom elements.
  1248.     if {[info exists htmlCustomMenuList]} {htmlNewElemVar}    
  1249.     
  1250. # Character entities
  1251.     foreach a [array names htmlSpecialCharacter] {
  1252.          lappend htmlCharacters $a
  1253.     }
  1254.     foreach a [array names htmlCapCharSpecMenu] {
  1255.          lappend htmlCapCharacters $a
  1256.     }
  1257.     foreach a [array names htmlSpecialSymbCharacter] {
  1258.          lappend htmlSymbCharacters $a
  1259.     }
  1260.  
  1261.     set htmlSmallCharsMenu [list menu -M HTML -p htmlMenuItem -m -n "small chars" ¥
  1262.     [lsort $htmlCharacters ]]
  1263.     set htmlCapCharsMenu [list menu -M HTML -p htmlMenuItem -m -c -n "capital chars" ¥
  1264.     [lsort $htmlCapCharacters ]]
  1265.         set htmlSymbCharsMenu [list menu -M HTML -p htmlMenuItem -m -n "other chars" ¥
  1266.     [lsort $htmlSymbCharacters ]]    
  1267.     set tmp $commonChars
  1268.     if {[llength $commonChars]} {lappend tmp "(-"}
  1269.     lappend tmp Add Default Clear $htmlSmallCharsMenu $htmlCapCharsMenu $htmlSymbCharsMenu
  1270.     set htmlCharsMenu [list menu -M HTML -p htmlMenuItem -m -n "Character Entities" $tmp]
  1271.     lappend htmlMenuList $htmlCharsMenu
  1272.  
  1273.  
  1274.  
  1275.     # Put it all together
  1276.     menu -M HTML -m  -p htmlMenuItem -n $htmlMenu $htmlMenuList    
  1277.     insertMenu $htmlMenu
  1278.     if {$htmlPackageToUse == 1} {
  1279.         markMenuItem -m {Packages} {Extensions} 1
  1280.     } else {
  1281.         markMenuItem -m {Packages} {HTML 3.2} 1
  1282.     }
  1283.     if {[info exists htmlShownWarning]} {enableMenuItem "HTML Utilities" Extend off}
  1284.     if {$HTMLmodeVars(useBigWindows)} {
  1285.         enableMenuItem $htmlMenu "Use Attributes" off
  1286.     }
  1287. }
  1288.  
  1289.  
  1290. #===============================================================================
  1291. # Key Bindings
  1292. #===============================================================================
  1293.  
  1294. proc htmlBindKeys {} {
  1295.     global HTMLmodeVars 
  1296.     
  1297.     catch {deleteModeBindings HTML}
  1298.     
  1299.     # tabs to tabmarks (･)
  1300.     bind '¥t'        htmlTabNext    HTML
  1301.     bind '¥t'    <s> htmlTabPrev    HTML
  1302.  
  1303.     bind ','    <zso>    {htmlInsertCharacter "less than"} HTML
  1304.     bind '.'    <zso>    {htmlInsertCharacter "greater than"} HTML
  1305.     bind '7'     <zso>    {htmlInsertCharacter ampersand}    HTML
  1306.     
  1307.     # bindings for JavaScript
  1308.     bind '¥{' <s> electricLeft        HTML
  1309.     bind '¥}' <s> electricRight    HTML
  1310.     
  1311.     # Comment line
  1312.     bind 'l' <C>  htmlDividingLine HTML
  1313. }
  1314.  
  1315. # Unbinding of keys not used in the smaller packages.
  1316. proc htmlUnbindKeys {} {
  1317.     global htmlPackageToUse htmlElemKeyBinding
  1318.     
  1319.     if {$htmlPackageToUse == 3} {
  1320.         unbind 'f' <zso> {} HTML
  1321.         unbind 'o' <zso> {} HTML
  1322.         unbind 'r' <zso> {} HTML
  1323.         unbind 'n' <zso> {} HTML
  1324.         unbind 'e' <zc>  {} HTML
  1325.         unbind 'n' <zc>     {} HTML
  1326.         foreach elem [array names htmlElemKeyBinding] {
  1327.             set keystr $htmlElemKeyBinding($elem)
  1328.             if {[string length $keystr]} {
  1329.                 set key [string tolower [string range $keystr [expr [string length $keystr] - 1] end]]
  1330.                 set mods ""
  1331.                 foreach m [split [string range $keystr 1 [expr [string length $keystr] - 3]] < ] {
  1332.                     if {$m == "B"} {append mods z}
  1333.                     if {$m == "I"} {append mods o}
  1334.                     if {$m == "U"} {append mods s}
  1335.                     if {$m == "O"} {append mods c}
  1336.                 }
  1337.                 catch {unbind '$key' <$mods> {} HTML}
  1338.             }
  1339.         }
  1340.     }
  1341. }
  1342.